home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm2.d64 / paint by number (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  78 lines
  1. 0 IFA=0THENA=1:LOAD"PBN.GRFX",8,1
  2. 1 IFA=1THENA=2:LOAD"PBN.LVLS",8,1
  3. 2 A=0:POKE52,128:POKE56,128:CLR:GOSUB112:POKE53271,.:POKE53276,1:POKE53277,.
  4. 4 POKE33784,178:PRINT"[154][147]"TAB(9)"[176][192][201]":PRINTTAB(9)"[221] [221][213][192][201][213][178][192][213][201][213][192][178][192] [176][192][201][201] [201]"
  5. 6 PRINTTAB(9)"[171][192][203][171][192][179] [221] [221][221][221] [221]  [171][192][179][202][178][203]":PRINTTAB(9)"[203]  [203] [202][192][203][192][203][202][203] [203]  [173][192][203] [203]"
  6. 8 PRINTTAB(9)"[213][201][213][192]":PRINTTAB(9)"[221][221][221] [201] [201][213][201][213][201][176][192][201][213][192][201][176][192][201]  "
  7. 10 PRINTTAB(9)"[221][221][221] [221] [221][221][202][203][221][171][192][179][171][192] [171][178][203][213][201]"
  8. 12 PRINTTAB(9)"[203][202][203] [202][192][203][203]  [202][177][192][203][202][192][192][189][202][192][219][203]":PRINTTAB(29)"[202]"
  9. 14 PRINTTAB(13)"BY JON MATTSON":PRINTTAB(11)"C[146] CONSTRUCTION SET"
  10. 16 PRINTTAB(11)"[129]G[146] PLAY GAME":PRINTTAB(11)"[158]S[146] ALTER GAME SPEED"
  11. 18 PRINTTAB(11)"L[146] LOAD NEW LEVELS":PRINTTAB(11)"[154]H[146] SEE HIGH SCORES"
  12. 20 PRINTTAB(11)"[152]Q[146] QUIT":POKE53285,.:POKE53286,1
  13. 22 GETA$:IFA$=""THEN28
  14. 24 J=.:FORI=1TO6:IFA$=MID$("CGSLHQ",I,1)THENJ=I
  15. 26 NEXT:IFJ>.THENPOKE53269,.:ONJGOTO30,48,34,32,74,86
  16. 28 SYSC:FORI=1TO15:NEXT:GOTO22
  17. 30 SYSM:GOTO4
  18. 32 SYSL:GOTO4
  19. 34 PRINT"[147]"TAB(12)"[159]NEW GAME SPEED:":PRINTTAB(14)"L[146]IGHTNING"
  20. 36 PRINTTAB(14)"[129]F[146]AST":PRINTTAB(14)"[158]N[146]ORMAL":PRINTTAB(14)"S[146]LOW"
  21. 38 PRINTTAB(14)"[154]V[146]ERY SLOW":POKE198,.
  22. 40 GETA$:IFA$=""THEN40
  23. 42 J=.:FORI=1TO5:IFA$=MID$("LFNSV",I,1)THENJ=I
  24. 44 NEXT:IFJ=.THEN40
  25. 46 POKESP,J*20:GOTO4
  26. 48 SYSG:PRINT:S=PEEK(SC)+256*PEEK(SC+1):IFS<S(19)THENFORI=1TO1500:NEXT:GOTO74
  27. 50 PRINT"[150]  A NEW HIGH SCORE!":POKE54277,3:POKE54278,.:FORI=1TO9:POKE54273,I*9
  28. 52 POKE54276,17:POKE54276,16:FORJ=1TO20:NEXTJ,I:J=19:FORI=19TO.STEP-1
  29. 54 IFS>S(I)THENJ=I
  30. 56 NEXT:IFJ=19THEN60
  31. 58 FORI=19TOJ+1STEP-1:S(I)=S(I-1):N$(I)=N$(I-1):NEXT
  32. 60 S(J)=S:N$(J)=""
  33. 62 PRINT"[159]  YOUR NAME PLEASE: [152]...............[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:I=.:S=5
  34. 64 PRINTCHR$(S)".[157]";:S=157-S:GETA$:IFA$=""THEN64
  35. 66 IFA$=CHR$(20)ANDI>.THENPRINT"[152].[157][157]";:I=I-1:N$(J)=LEFT$(N$(J),I):GOTO64
  36. 68 IFA$=CHR$(13)ANDI>.THEN74
  37. 70 IFI=14OR(A$<"-"ANDA$<>" ")OR(A$>"9"ANDA$<"A")ORA$>"_"THEN64
  38. 72 PRINTA$;:N$(J)=N$(J)+A$:I=I+1:GOTO64
  39. 74 PRINT"[147]"TAB(10)"*[158]*[150]*[129]  [156]T[154]O[159]P [153]SC[158]O[150]R[129]ES[156] [154] [159]**[153]*":FORI=.TO19
  40. 76 A$=STR$(S(I)):A$=LEFT$("00000",6-LEN(A$))+RIGHT$(A$,LEN(A$)-1):J=I+10*(I>9)
  41. 78 PRINTTAB(10)MID$(C$,J+1,1)N$(I)TAB(25)A$:NEXT
  42. 80 PRINTTAB(12)"[150]PRESS ANY KEY...":POKE198,.
  43. 82 GETA$:IFA$>""THEN4
  44. 84 SYSD:FORI=1TO25:NEXT:GOTO82
  45. 86 PRINT"[147][150]QUIT? [159]ARE YOU SURE?":POKE198,.
  46. 88 GETA$:IFA$="N"THEN4
  47. 90 IFA$<>"Y"THEN88
  48. 92 PRINT" SAVE HIGH SCORES? (READY DISK DRIVE     [153]BEFORE SAYING YES!)"
  49. 94 POKE198,.
  50. 96 GETA$:IFA$="N"THEN108
  51. 98 IFA$<>"Y"THEN96
  52. 100 OPEN15,8,15:PRINT#15,"S0:PBN.HIGH":INPUT#15,J:IFJ>1ANDJ<>62THEN106
  53. 102 OPEN2,8,2,"0:PBN.HIGH,S,W":INPUT#15,J:IFJ>.THEN106
  54. 104 FORI=.TO19:PRINT#2,N$(I):PRINT#2,S(I):NEXT
  55. 106 CLOSE2:CLOSE15
  56. 108 POKE56576,199:POKE53272,21:POKE648,4:PRINT"[154][147]";:POKE53280,14:POKE53281,6
  57. 110 POKE52,160:POKE56,160:CLR:GOTO142
  58. 112 DIMS(19),N$(19):M=35825:G=M+3:L=M+6:C=M+9:D=M+12:SC=M+15:SP=M+17
  59. 114 I=.:J=.:S=.:A$="":C$="[158][150][129][156][154][159][153]":GOSUB126:POKE54296,.:POKE54286,255
  60. 116 POKE54287,255:POKE54290,128
  61. 118 REMPOKE147,.:SYS57812"PBN.GRFX",8,1:SYS62631:POKE147,.:SYS57812"PBN.LVLS",8,1
  62. 120 SYS62631:OPEN15,8,15:OPEN2,8,2,"0:PBN.HIGH,S,R":INPUT#15,J
  63. 122 IFJ=.THENFORI=.TO19:INPUT#2,N$(I):INPUT#2,S(I):NEXT
  64. 124 CLOSE2:CLOSE15:POKE56576,197:POKE648,128:POKE53272,8:RETURN
  65. 126 PRINTCHR$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  66. 128 FORI=1TO7:PRINT"  [152]                                    ":NEXT
  67. 130 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  68. 132 PRINTTAB(12)"[152][208][193][201][206][212][160][194][217] [206][213][205][194][197][210]":PRINTTAB(13)"[194]Y [202]ON [205]ATTSON"
  69. 134 PRINTTAB(7)"[208]UBLISHED ON  [204][207][193][196][211][212][193][210] #73"
  70. 136 PRINTTAB(6)"[211]UBSCRIPTIONS 1-800-831-2694"
  71. 138 PRINTTAB(6)"[195]OPYRIGHT 1990 [211]OFTDISK [201]NC."
  72. 140 PRINTTAB(15)"[154][204]OADING...":POKE53280,.:POKE53281,.:RETURN
  73. 142 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
  74. 144 IFER<>63THENEND
  75. 146 PRINT"[147]RETURNING TO LOADSTAR...":PRINT"LOAD"CHR$(34);
  76. 148 PRINT"HELLO CONNECT"CHR$(34)",8":PRINT"RUN[145][145][145][145][145][145][145][145]":POKE631,13
  77. 150 POKE632,13:POKE633,13:POKE198,3:NEW
  78.